home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 6 / clmfeb85.zip / FORTRN.8 < prev    next >
Text File  |  1988-07-25  |  512b  |  21 lines
  1.  
  2.                             Listing 8
  3.                       C Instead of FORTRAN?
  4.  
  5.  
  6.     double g(y)        /* inverse black box form for data */
  7.     double y;        /* point to evaluate at */
  8.     {
  9.         double x;
  10.  
  11.         extern double xarray[],yarray[]; /* our data defined
  12.                                 as external */
  13.         extern int npoints;         /* points in arrays */
  14.  
  15.         x = linterp(yarray,xarray,y,npoints);
  16.                 /* compute answer */
  17.  
  18.         return(x);    /* return answer (no error check) */
  19.     }
  20.  
  21.